home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / DSO.F < prev    next >
Text File  |  1980-01-01  |  386b  |  31 lines
  1. #inpend=0
  2. buffer ? 25*82+1
  3.  
  4. forever
  5.     {
  6.     print bios "File: ";
  7.     inputs name
  8.     print bios
  9.  
  10.     if peekb (name+2)=0 then terminate
  11.     load name+2,buffer
  12.     create #1,name+2
  13.     m=buffer
  14.     repeat 25
  15.     {
  16.     write #1,80 from m:m+=80
  17.     write #1,2 from eol
  18.     }
  19.     write #1,1 from eof
  20.     close #1
  21.     }
  22.  
  23. name:
  24. string 20
  25.  
  26. eol:
  27. datab 13,10
  28.  
  29. eof:
  30. datab 26
  31.